home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / ipack.exe / USRINFV.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-02-10  |  3.2 KB  |  106 lines
  1. VERSION 2.00
  2. Begin Form UserInfo 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "UserInfo"
  5.    ClientHeight    =   1965
  6.    ClientLeft      =   3675
  7.    ClientTop       =   3330
  8.    ClientWidth     =   3735
  9.    Height          =   2370
  10.    Left            =   3615
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   1965
  13.    ScaleWidth      =   3735
  14.    Top             =   2985
  15.    Width           =   3855
  16.    Begin CommandButton Ok 
  17.       Caption         =   "Ok"
  18.       Default         =   -1  'True
  19.       FontBold        =   0   'False
  20.       FontItalic      =   0   'False
  21.       FontName        =   "MS Sans Serif"
  22.       FontSize        =   8.25
  23.       FontStrikethru  =   0   'False
  24.       FontUnderline   =   0   'False
  25.       Height          =   330
  26.       Left            =   1185
  27.       TabIndex        =   4
  28.       Top             =   1215
  29.       Width           =   1275
  30.    End
  31.    Begin TextBox Email 
  32.       FontBold        =   0   'False
  33.       FontItalic      =   0   'False
  34.       FontName        =   "MS Sans Serif"
  35.       FontSize        =   8.25
  36.       FontStrikethru  =   0   'False
  37.       FontUnderline   =   0   'False
  38.       Height          =   285
  39.       Left            =   1110
  40.       TabIndex        =   3
  41.       Text            =   "zthomas@activexpert.com"
  42.       Top             =   615
  43.       Width           =   2370
  44.    End
  45.    Begin TextBox UserName 
  46.       FontBold        =   0   'False
  47.       FontItalic      =   0   'False
  48.       FontName        =   "MS Sans Serif"
  49.       FontSize        =   8.25
  50.       FontStrikethru  =   0   'False
  51.       FontUnderline   =   0   'False
  52.       Height          =   285
  53.       Left            =   1110
  54.       TabIndex        =   2
  55.       Text            =   "Zane Thomas"
  56.       Top             =   255
  57.       Width           =   2370
  58.    End
  59.    Begin Label Label1 
  60.       Alignment       =   1  'Right Justify
  61.       BackColor       =   &H00C0C0C0&
  62.       Caption         =   "Emial:"
  63.       FontBold        =   0   'False
  64.       FontItalic      =   0   'False
  65.       FontName        =   "MS Sans Serif"
  66.       FontSize        =   8.25
  67.       FontStrikethru  =   0   'False
  68.       FontUnderline   =   0   'False
  69.       Height          =   285
  70.       Index           =   1
  71.       Left            =   -255
  72.       TabIndex        =   1
  73.       Top             =   585
  74.       Width           =   1200
  75.    End
  76.    Begin Label Label1 
  77.       Alignment       =   1  'Right Justify
  78.       BackColor       =   &H00C0C0C0&
  79.       Caption         =   "User Name:"
  80.       FontBold        =   0   'False
  81.       FontItalic      =   0   'False
  82.       FontName        =   "MS Sans Serif"
  83.       FontSize        =   8.25
  84.       FontStrikethru  =   0   'False
  85.       FontUnderline   =   0   'False
  86.       Height          =   285
  87.       Index           =   0
  88.       Left            =   -240
  89.       TabIndex        =   0
  90.       Top             =   285
  91.       Width           =   1200
  92.    End
  93. Option Explicit
  94. Private Sub Email_GotFocus ()
  95.     email.SelStart = 0
  96.     email.SelLength = Len(email.Text)
  97. End Sub
  98. Private Sub Ok_Click ()
  99.     g_emailaddr = email.Text
  100.     Unload Me
  101. End Sub
  102. Private Sub UserName_GotFocus ()
  103.     UserName.SelStart = 0
  104.     UserName.SelLength = Len(UserName.Text)
  105. End Sub
  106.